(Subscript[sol, 1])=Solve[(Subscript[u, 1])==(E^(-α (Subscript[c, w])-γ (Subscript[c, y])))(Subscript[a, yz])-(Subscript[c, y])(((E^(-α (Subscript[c, w])-γ (Subscript[c, y])))-1)/(-α (Subscript[c, w])-γ (Subscript[c, y])))(-α (Subscript[a, wz])-γ (Subscript[u, 1])), (Subscript[u, 1])]

FullSimplify[(Subscript[u, 1]) /. (Subscript[sol, 1])]

FullSimplify[(Subscript[u, 1]) /. (Subscript[sol, 1]) /. (Subscript[a, yz]) -> 0]

FullSimplify[(Subscript[u, 1]) /. (Subscript[sol, 1]) /. (Subscript[a, wz]) -> 0]

FullSimplify[(Subscript[u, 1]) /. (Subscript[sol, 1]) /. γ -> 0]